;;;Obsolete, see helphtm.lsp
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;		http://paracadd.com/
;;;
;;;  Copyright:	1/27/2002
;;;     Edited:	4/23/2007
;;;
(DEFUN browser_help (hfnam )
    (IF (OR
	  (SETQ help_file (FINDFILE (strcat hfnam "_help.htm")))
	  (SETQ help_file (FINDFILE (strcat hfnam "_help.html")))
	  (SETQ help_file (FINDFILE hfnam))
	)
      nil
      (PROGN
        (ALERT
          (STRCAT "Unable to find the help file!\n"
                  "Please browse to the folder\n"
                  "containing "
                  (STRCASE hfnam)
                  " and select the file."
          ) ;_ end of strcat
        ) ;_ end of alert
	(IF (OR DOS_GETFILED check_for_doslib) NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! "))
	(IF DOS_GETFILED NIL (check_for_doslib))
	(IF DOS_GETFILED
          (SETQ help_file (DOS_GETFILED (STRCAT "Open " (STRCASE hfnam) " help file")
                                    (STRCAT hfnam "_help.htm")
                                    "Web Pages (*.htm, *.html)|*.htm*||"
                          ) ;_ end of getfiled
          ) ;_ end of setq
          (SETQ help_file (GETFILED (STRCAT "Open " (STRCASE hfnam) " help file")
                                    (STRCAT hfnam "_help.htm")
                                    "htm"
				    4
                          ) ;_ end of getfiled
          ) ;_ end of setq
	)
      ) ;_ end of progn
    ) ;_ end of if
  (COND
    ((AND
       dos_specialdir
       (FINDFILE (STRCAT (DOS_SPECIALDIR 38) "internet explorer/iexplore.exe"))
       help_file
     ) ;_ end of and
     (STARTAPP
       (STRCAT (DOS_SPECIALDIR 38) "internet explorer/iexplore.exe "
               help_file
       ) ;_ end of strcat
     ) ;_ end of startapp
    )
    ((AND
       (FINDFILE "c:/program files/internet explorer/iexplore.exe")
       help_file
     ) ;_ end of and
     (STARTAPP
       (STRCAT "c:/program files/internet explorer/iexplore.exe "
               help_file
       ) ;_ end of strcat
     ) ;_ end of startapp
    )
    ((AND
       dos_specialdir
       (FINDFILE
         (STRCAT (DOS_SPECIALDIR 38) "netscape/communicator/program/netscape.exe")
       ) ;_ end of findfile
       help_file
     ) ;_ end of and
     (STARTAPP       
         (STRCAT (DOS_SPECIALDIR 38) "netscape/communicator/program/netscape.exe "
         help_file
         )   ;_ end of strcat            
     ) ;_ end of startapp
    )
    ((AND
       (FINDFILE
         "c:/program files/netscape/communicator/program/netscape.exe"
       ) ;_ end of findfile
       help_file
     ) ;_ end of and
     (STARTAPP
       (STRCAT
         "c:/program files/netscape/communicator/program/netscape.exe "
         help_file
       ) ;_ end of strcat
     ) ;_ end of startapp
    )
    (T
      (PROGN
        (TERM_DIALOG)
        (TERM_DIALOG)
        (COMMAND nil nil nil)
        (TERM_DIALOG)
        (COMMAND "browser" help_file)
      ))
;;;    (help_file
;;;     (ALERT
;;;       (STRCAT "Unable to determine your browser!\n"
;;;               "Please find its location and\n"
;;;               "select your browser program file."
;;;       ) ;_ end of strcat
;;;     ) ;_ end of alert
;;;     (SETQ the_brwsr (GETFILED "Select internet browser program"
;;;                               "C:"
;;;                               "exe"
;;;                               4
;;;                     ) ;_ end of getfiled
;;;     ) ;_ end of setq
;;;     (IF the_brwsr
;;;       (STARTAPP (STRCAT the_brwsr " " help_file))
;;;       (ALERT
;;;         (STRCAT "Unable to display help file!\n"
;;;                 "No browser found!"
;;;         ) ;_ end of strcat
;;;       ) ;_ end of alert
;;;     ) ;_ end of if
;;;    )
  ) ;_ end of cond
  (PRINC)
) ;_ end of defun
